home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / arcaid.arc / MODULE2 (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  76 lines
  1. 0 REM
  2. 1 IF GL=66 THEN 95
  3. 10 IF GL=190 THEN 150
  4. 20 IF GL=360 THEN 350
  5. 30 REM: DISSOLVE ROUTINE
  6. 40 PRINT"[147]            [196]ISSOLVE [193][210][195] FILE[146]"
  7. 50 PRINT"     [208]LEASE INSERT DISK WITH [193][210][195] FILE."
  8. 60 PRINT"  [208]RESS [158]$[146] FOR A DIRECTORY OF [196]RIVE 8,0."
  9. 65 PRINT" [208]RESS [158][213][146] FOR A NEW DRIVE CONFIGURATION."
  10. 70 PRINT" [208]RESS [158][211][208][193][195][197] [194][193][210][146] TO RETURN TO MAIN MENU."
  11. 80 PRINT"       [193]NY OTHER KEY WILL CONTINUE."
  12. 90 GET A$:IF A$="" THEN 90
  13. 91 IF A$="[213]" OR A$="U" THEN GOSUB 660:GOTO
  14. 92 IF A$<>" " THEN 110
  15. 95 GL=66:PRINT"[147] [208]LEASE INSERT DISK WITH [193][210][195] [193][201][196] ON IT"
  16. 97 PRINT"           AND PRESS ANY KEY.":POKE198,0
  17. 98 GET A$:IF A$="" THEN 98
  18. 99 PRINT"[147]";SPC(15);"[204]OADING..."
  19. 100 PRINT"[144]LOAD"CHR$(34)"MAIN"CHR$(34)",8";:GOTO590
  20. 110 IF A$<>"$" THEN GOTO 180
  21. 120 PRINT"[147]        [200]OLD DOWN [211][200][201][198][212] TO PAUSE."
  22. 130 PRINT"DIR":PRINT"":GL=190
  23. 140 GOTO590
  24. 150 PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":POKE 198,0:GL=0
  25. 160 GET A$:IF A$="" THEN 160
  26. 170 PRINT"[147]";:RUN
  27. 180 PRINT"[147]   [206]OW THAT YOU KNOW THE NAME OF THE
  28. 190 [153]"          ATN(null)LEN FILE, TYPE IT IN:":SR$[178]"A:"
  29. 200 [133] "ATN(null)LEN FILE NAME";F$:[139] F$[178]"" [167] [138]
  30. 210 [139][194](2)[177]1[167][133]"(null)N WHAT DRIVE CAN THIS FILE BE FOUND    (EX. 9,0)";DV,DR
  31. 220 [141] 380:SR$[178]DR$
  32. 230 [139][194](2)[177]1[167][133]"(null)N WHAT DRIVE CAN THIS FILE BE DE-ATN(null)LENED (EX. 9,0)";DV,DR
  33. 240 [141] 490:DS$[178]DR$
  34. 250 L[178][195](F$)
  35. 260 L[178][195](F$):NF$[178]""
  36. 270 [139] [201](F$,4)[178]".ARC" [167] L[178]L[171]4
  37. 280 [129] I[178]1 [164] L
  38. 290 [139] [202](F$,I,1)[178]" " [167] NF$[178]NF$[170]"?":[137] 310
  39. 300 NF$[178]NF$[170][202](F$,I,1)
  40. 310 [130]
  41. 320 [153]"LOADARC/X "DR$[170]NF$:[153]"":GL[178]360
  42. 330 [139] [194](2)[177]1 [167][153]"LOADARC/X"DS$[170]" "[170]SR$[170]NF$:[153]"":GL[178]360
  43. 340 [137]590
  44. 350 [151]198,0:[153]"  (null)RESS ANY KEY TO RETURN TO MAIN MENU.WAIT":GL[178]0
  45. 360 [161] A$:[139] A$[178]"" [167] 360
  46. 370 [138]
  47. 380 DR$[178]""
  48. 390 [139] DV[178]8 [175] DR[178]0 [167] DR$[178]"A:"
  49. 400 [139] DV[178]8 [175] DR[178]1 [167] DR$[178]"B:"
  50. 410 [139] DV[178]9 [175] DR[178]0 [167] DR$[178]"C:"
  51. 420 [139] DV[178]9 [175] DR[178]1 [167] DR$[178]"D:"
  52. 430 [139] DV[178]10[175] DR[178]0 [167] DR$[178]"E:"
  53. 440 [139] DV[178]10 [175] DR[178]1 [167] DR$[178]"F:"
  54. 450 [139] DV[178]11 [175] DR[178]0 [167] DR$[178]"G:"
  55. 460 [139] DV[178]11 [175] DR[178]1 [167] DR$[178]"H:"
  56. 470 [142]
  57. 480 [128]
  58. 490 DR$[178]""
  59. 500 [139] DV[178]8 [175] DR[178]0 [167] DR$[178]"A"
  60. 510 [139] DV[178]8 [175] DR[178]1 [167] DR$[178]"B"
  61. 520 [139] DV[178]9 [175] DR[178]0 [167] DR$[178]"C"
  62. 530 [139] DV[178]9 [175] DR[178]1 [167] DR$[178]"D"
  63. 540 [139] DV[178]10 [175] DR[178]0 [167] DR$[178]"E"
  64. 550 [139] DV[178]10 [175] DR[178]1 [167] DR$[178]"F"
  65. 560 [139] DV[178]11 [175] DR[178]0 [167] DR$[178]"G"
  66. 570 [139] DV[178]11 [175] DR[178]1 [167] DR$[178]"H"
  67. 580 [142]
  68. 590 [151] 631,13:[151]632,71:[151] 633,207:[151]635,13:[151]636,13:[151]198,5:[137] 480
  69. 660 [153]"LOAD  LEFT$OW MANY DRIVES ARE YOU GOING TO USE?"
  70. 661 [153]"        SYS(null)WAITNE OR SYS(null)WAITULTIPLE STR$RIVES?"
  71. 670 [161] A$:[139] A$[178]"" [167] 670
  72. 680 [139] A$[179][177]"(null)" [175] A$[179][177]"O" [175] A$[179][177]"(null)" [175] A$[179][177]"M" [167] 670
  73. 690 [151] 2,1
  74. 700 [139] A$[178]"M" [176] A$[178]"(null)" [167] [151] 2,2
  75. 710 [142]
  76.